(** 
    Lexer.mll
    For queries file.

    Bozman Çagdas <bozman.cagdas@gmail.com> - 2011
    Razakamiadana Tefin <tefy.razaka@gmail.com>   - 2011
*)
{
  open Parser
}

rule token = parse
  | "<="     {   LTE  }
  | "<"      {   LT   }
  | ">"      {   GT   }
  | ","      {  COMMA }
  | "L"      {   L    }
  | "P"      {   P    }
  | [ '0'-'9' ] *
      { let s = Lexing.lexeme lexbuf in
          INT s }
  | [ '0'-'9' ]* [',']
      { let s = Lexing.lexeme lexbuf in
	  INTCOM s }
  | [' ' '\010' '\013' '\009' '\012'] +
      { token lexbuf }
  | ([^' ' '<' '>'] | ['-']) *
      { let s = Lexing.lexeme lexbuf in
          IDENT s }
  | eof      { EOF }


 
